home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / decor.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  422 b   |  20 lines
  1. # CVS $Id: decor.tcl,v 1.3 1995/02/03 16:54:28 zibi Exp $
  2. #
  3. # This verifies a bug caused by decorations not be 
  4. # check correctly in setvalues.
  5. #
  6. # You should see all the decorations in the dialog.
  7.  
  8.  
  9. set app [VtOpen  test]
  10.  
  11. set dlog [VtFormDialog $app.form -wmDecoration {ALL} ]
  12.  
  13. VtLabel $dlog.label -label "You should see all the decorations in the dialog"
  14.  
  15. VtSetValues $dlog -title "My Dialog"
  16.  
  17. VtShow $dlog
  18.  
  19. VtMainLoop
  20.